(find-file-noselect): Expand buffer-file-truename

before copying it to anything else.

diff --git a/lisp/files.el b/lisp/files.el
index 30f04dfd2eef5ae2a0395c88e6579b24da757846..a9430029d5673dc461bb9f5b8c0aeeda20c9f983 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -608,7 +608,9 @@ The buffer is not selected, just returned to the caller."
                 (not (member logical find-file-not-true-dirname-list)))
               (setq buffer-file-name buffer-file-truename))
          (if find-file-visit-truename
-             (setq buffer-file-name (setq filename buffer-file-truename)))
+             (setq buffer-file-name
+                   (setq filename
+                         (expand-file-name buffer-file-truename))))
          ;; Set buffer's default directory to that of the file.
          (setq default-directory (file-name-directory filename))
          ;; Turn off backup files for certain file names.  Since